www.gusucode.com > 搜索动力2010 v4.9 > 搜索动力2010 v4.9\code\m\config.asp
<% on error resume next dim conn dim connstr set conn=server.CreateObject("adodb.connection") DBPath = Server.MapPath("../data/zxsoudata.asp") conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath If Err Then Response.Write(Server.Htmlencode("Can not connect database.")) Response.End End If %> <% sql="select * from zxsou_config" Set zxsou_config=Server.CreateObject("ADODB.RecordSet") zxsou_config.Open sql,conn,1,1 name=zxsou_config("name") domain=zxsou_config("domain") sysurl=zxsou_config("sysurl") notice=zxsou_config("notice") skin=zxsou_config("skin") bespeak_skin=zxsou_config("bespeak_skin") bespeak_time=zxsou_config("bespeak_time") bespeak_check=zxsou_config("bespeak_check") timediff=zxsou_config("timediff") webmaster=zxsou_config("webmaster") serverline=zxsou_config("serverline") %>